home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / icon8_fx.zoo / diffs / icont.dif < prev    next >
Encoding:
Text File  |  1991-02-18  |  28.3 KB  |  1,074 lines
  1. *** old\globals.h
  2. --- globals.h
  3. **************
  4. *** 33,35
  5.   
  6. ! #if ATARTI_ST
  7.   Global char *patharg    Init(0);    /* -p: path for finding iconx */
  8. --- 33,35 -----
  9.   
  10. ! #if ATARI_ST
  11.   Global char *patharg    Init(0);    /* -p: path for finding iconx */
  12. **************
  13. *** 38,39
  14.   Global int silent    Init(0);    /* -s: suppress info messages? */
  15.   Global int m4pre    Init(0);    /* -m: use m4 preprocessor? [UNIX] */
  16. --- 38,40 -----
  17.   Global int silent    Init(0);    /* -s: suppress info messages? */
  18. + #ifdef UNIX
  19.   Global int m4pre    Init(0);    /* -m: use m4 preprocessor? [UNIX] */
  20. **************
  21. *** 39,40
  22.   Global int m4pre    Init(0);    /* -m: use m4 preprocessor? [UNIX] */
  23.   Global int uwarn    Init(0);    /* -u: warn about undefined ids? */
  24. --- 40,42 -----
  25.   Global int m4pre    Init(0);    /* -m: use m4 preprocessor? [UNIX] */
  26. + #endif
  27.   Global int uwarn    Init(0);    /* -u: warn about undefined ids? */
  28. *** old\lmem.c
  29. --- lmem.c
  30. **************
  31. *** 21,22
  32.   #if AMIGA || ATARI_ST || HIGHC_386 || MACINTOSH || VMS
  33.      /* nothing is needed */
  34. --- 21,25 -----
  35.   #if AMIGA || ATARI_ST || HIGHC_386 || MACINTOSH || VMS
  36. + #ifdef __GNUC__
  37. + #include <stat.h>
  38. + #else
  39.      /* nothing is needed */
  40. **************
  41. *** 22,23
  42.      /* nothing is needed */
  43.   #endif                    /* AMIGA || ATARI_AT || HIGHC_386 ... */
  44. --- 25,27 -----
  45.      /* nothing is needed */
  46. + #endif
  47.   #endif                    /* AMIGA || ATARI_AT || HIGHC_386 ... */
  48. **************
  49. *** 138,139
  50.   
  51.      if (ipath == NULL)
  52. --- 142,145 -----
  53.   
  54. + #ifdef __GNU__  /* no really good reason for the code below */
  55. +         /* current working directory is searched first in any case */
  56.      if (ipath == NULL)
  57. **************
  58. *** 184,185
  59.    */
  60.   
  61. --- 190,192 -----
  62.    */
  63. + #endif                    /* __GNUC__ */
  64.   
  65. **************
  66. *** 296,297
  67.   
  68.         pptr = ipath;
  69. --- 303,308 -----
  70.   
  71. + #ifdef __GNUC__
  72. +       /* skip this search if IPATH is not defined */
  73. +       if (NULL != (pptr = ipath)) {
  74. + #else
  75.         pptr = ipath;
  76. **************
  77. *** 297,299
  78.         pptr = ipath;
  79. ! 
  80.         while (trypath(name, file)) {
  81. --- 308,310 -----
  82.         pptr = ipath;
  83. ! #endif                        /* __GNUC__ */
  84.         while (trypath(name, file)) {
  85. **************
  86. *** 304,305
  87.            }
  88.         }
  89. --- 315,317 -----
  90.            }
  91. + #ifdef __GNUC__
  92.         }
  93. **************
  94. *** 305,306
  95.         }
  96.   
  97. --- 317,320 -----
  98.         }
  99. + #endif                        /* __GNUC__ */
  100. +       }
  101.   
  102. **************
  103. *** 371,372
  104.   #if ATARI_ST || HIGHC_386
  105.      {
  106. --- 385,395 -----
  107.   #if ATARI_ST || HIGHC_386
  108. + #ifdef __GNUC__
  109. +    struct stat statb;
  110. +    char lclname[MaxFileName];
  111. +    if (access( makename(lclname,SourceDir,file,U1Suffix), 4 ) == 0 ) {
  112. +       stat(lclname,&statb);
  113. +       if (statb.st_mode & S_IFREG)
  114. +          return 1;
  115. +       }
  116. + #else
  117.      {
  118. **************
  119. *** 381,382
  120.      }
  121.   #endif                    /* ATARI_ST || HIGHC_386 */
  122. --- 404,406 -----
  123.      }
  124. + #endif
  125.   #endif                    /* ATARI_ST || HIGHC_386 */
  126. **************
  127. *** 467,468
  128.      char c;
  129.   
  130. --- 491,493 -----
  131.      char c;
  132. +    char *pptrl;
  133.   
  134. **************
  135. *** 468,472
  136.   
  137. !    while (*pptr == ' ')
  138. !       pptr++;
  139. !    if (!*pptr)
  140.         return 0;
  141. --- 493,517 -----
  142.   
  143. ! #ifndef ORIG
  144. !    /* Check if path separators already occur in 'name' - if yes
  145. !       abandon further search */
  146. ! #if PORT
  147. ! Deliberate Syntax Error
  148. ! #endif                    /* PORT */
  149. ! #if ATARI_ST
  150. !    pptrl = name;
  151. !    while (c = *pptrl++) {
  152. ! #ifdef __GNUC__
  153. !       if ('\\' == c || '/' == c)
  154. ! #else                    /* __GNUC__ */
  155. !       if ('\\' == c)
  156. ! #endif                    /* __GNUC__ */
  157. !          return 0;
  158. !    }
  159. ! #endif                    /* ATARI_ST */
  160. ! #endif                    /* ORIG */
  161. ! 
  162. !    pptrl = pptr;
  163. !    while (*pptrl == ' ')
  164. !       pptrl++;
  165. !    if (!*pptrl)
  166.         return 0;
  167. **************
  168. *** 473,475
  169.      do {
  170. !       c = (*file++ = *pptr++);
  171.         }
  172. --- 518,520 -----
  173.      do {
  174. !       c = (*file++ = *pptrl++);
  175.         }
  176. **************
  177. *** 476,478
  178.         while (c != ' ' && c);
  179. !    pptr--;
  180.      file--;
  181. --- 521,523 -----
  182.         while (c != ' ' && c);
  183. !    pptrl--;
  184.      file--;
  185. **************
  186. *** 478,479
  187.      file--;
  188.   
  189. --- 523,525 -----
  190.      file--;
  191. +    pptr = pptrl;
  192.   
  193. **************
  194. *** 502,504
  195.   
  196. ! #if ATARI_ST || MACINTOSH || MVS || VM || VMS
  197.      /* nothing is needed */
  198. --- 548,565 -----
  199.   
  200. ! #if ATARI_ST
  201. !    --file;
  202. ! #ifdef __GNUC__
  203. !    if (('\\' != *file) && ('/' != *file)) {
  204. !       file++;
  205. !      *file = '\\';
  206. !      }
  207. !   file++;
  208. ! #else                    /* __GNUC__ */
  209. !    if ('\\' != *file++) {
  210. !       *file++ = '\\';
  211. !       }
  212. ! #endif
  213. ! #endif                    /* ATARI_ST */
  214. ! 
  215. ! #if MACINTOSH || MVS || VM || VMS
  216.      /* nothing is needed */
  217. **************
  218. *** 504,506
  219.      /* nothing is needed */
  220. ! #endif                    /* ATARI_ST || MACINTOSH */
  221.   
  222. --- 565,567 -----
  223.      /* nothing is needed */
  224. ! #endif                    /* MACINTOSH || MVS || VM || VMS */
  225.   
  226. *** old\makefile
  227. --- makefile
  228. **************
  229. *** 0,0
  230. --- 1,95 -----
  231. + CC=gcc
  232. + CFLAGS=-O -fstrength-reduce -fcombine-regs -fomit-frame-pointer
  233. + LFLAGS=-x
  234. + 
  235. + OBJS = err.o keyword.o lcode.o lglob.o link.o llex.o lmem.o lnklist.o \
  236. +     lsym.o opcode.o optab.o parse.o tcode.o tlex.o tmain.o \
  237. +     tmem.o toktab.o trans.o tree.o tsym.o tlocal.o util.o
  238. + 
  239. + COBJS= ..\common\long.o ..\common\getopt.o
  240. + 
  241. + LIBS=-liio
  242. + 
  243. + PGM=icont.ttp
  244. + 
  245. + all: $(PGM)
  246. + 
  247. + $(PGM): $(OBJS) $(COBJS)
  248. +     $(CC) $(CFLAGS) -o $(PGM) $(OBJS) $(COBJS) $(LIBS) $(LFLAGS)
  249. +     toglclr $(PGM) # for TOS 1.4
  250. + 
  251. + clean:
  252. +     $(RM) $(OBJS)
  253. + 
  254. + ###
  255. + err.o : err.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  256. +   ..\common\cproto.h general.h token.h tlex.h trans.h tree.h tproto.h 
  257. + keyword.o : keyword.c ..\h\keyword.h tsym.h 
  258. + lcode.o : lcode.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  259. +   ..\common\cproto.h general.h tproto.h globals.h sizes.h opcode.h \
  260. +   ..\h\opdefs.h link.h ..\h\rt.h ..\h\cpuconf.h ..\h\memsize.h \
  261. +   ..\h\keyword.h ..\h\version.h ..\h\header.h 
  262. + lglob.o : lglob.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  263. +   ..\common\cproto.h general.h tproto.h link.h ..\h\rt.h \
  264. +   ..\h\cpuconf.h ..\h\memsize.h opcode.h ..\h\opdefs.h \
  265. +   ..\h\version.h 
  266. + link.o : link.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  267. +   ..\common\cproto.h general.h tproto.h globals.h sizes.h link.h \
  268. +   ..\h\rt.h ..\h\cpuconf.h ..\h\memsize.h ..\h\paths.h \
  269. +   ..\h\header.h 
  270. + llex.o : llex.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  271. +   ..\common\cproto.h general.h tproto.h link.h ..\h\rt.h \
  272. +   ..\h\cpuconf.h ..\h\memsize.h opcode.h ..\h\opdefs.h 
  273. + lmem.o : lmem.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  274. +   ..\common\cproto.h general.h tproto.h globals.h sizes.h link.h \
  275. +   ..\h\rt.h ..\h\cpuconf.h ..\h\memsize.h 
  276. + lnklist.o : lnklist.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  277. +   ..\common\cproto.h general.h tproto.h trans.h lfile.h 
  278. + lsym.o : lsym.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  279. +   ..\common\cproto.h link.h ..\h\rt.h ..\h\cpuconf.h \
  280. +   ..\h\memsize.h general.h tproto.h globals.h sizes.h 
  281. + opcode.o : opcode.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  282. +   ..\common\cproto.h general.h tproto.h link.h ..\h\rt.h \
  283. +   ..\h\cpuconf.h ..\h\memsize.h opcode.h ..\h\opdefs.h 
  284. + optab.o : optab.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  285. +   ..\common\cproto.h tlex.h 
  286. + parse.o : parse.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  287. +   ..\common\cproto.h tproto.h trans.h tsym.h tree.h ..\h\keyword.h 
  288. + tcode.o : tcode.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  289. +   ..\common\cproto.h general.h tproto.h globals.h sizes.h trans.h \
  290. +   token.h tree.h tsym.h 
  291. + tlex.o : tlex.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  292. +   ..\common\cproto.h general.h tproto.h trans.h token.h tlex.h \
  293. +   tree.h 
  294. + tlocal.o : tlocal.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  295. +   ..\common\cproto.h 
  296. + tmain.o : tmain.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  297. +   ..\common\cproto.h general.h tproto.h ..\h\paths.h globals.h \
  298. +   sizes.h 
  299. + tmem.o : tmem.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  300. +   ..\common\cproto.h general.h tproto.h globals.h sizes.h trans.h \
  301. +   ..\h\memsize.h tsym.h tree.h 
  302. + toktab.o : toktab.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  303. +   ..\common\cproto.h general.h tproto.h trans.h tlex.h token.h 
  304. + trans.o : trans.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  305. +   ..\common\cproto.h general.h tproto.h ..\h\version.h globals.h \
  306. +   sizes.h trans.h tsym.h tree.h token.h 
  307. + tree.o : tree.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  308. +   ..\common\cproto.h general.h tproto.h tree.h 
  309. + tsym.o : tsym.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  310. +   ..\common\cproto.h general.h tproto.h globals.h sizes.h trans.h \
  311. +   token.h tsym.h lfile.h 
  312. + util.o : util.c ..\h\config.h ..\h\define.h ..\h\proto.h \
  313. +   ..\common\cproto.h general.h tproto.h ..\h\cpuconf.h globals.h \
  314. +   sizes.h trans.h tree.h ..\h\fdefs.h 
  315. + ###
  316. + ..\common\long.o : ..\common\long.c ..\h\config.h \
  317. +   ..\h\define.h ..\h\proto.h ..\common\cproto.h ..\h\cpuconf.h 
  318. +     pushd ..\common
  319. +     make long.o
  320. +     popd
  321. + ..\common\getopt.o : ..\common\getopt.c ..\h\config.h \
  322. +   ..\h\define.h ..\h\proto.h ..\common\cproto.h 
  323. +     pushd ..\common
  324. +     make getopt.o
  325. +     popd
  326. *** old\tlocal.c
  327. --- tlocal.c
  328. **************
  329. *** 39,40
  330.   
  331.   unsigned long _STACK = 10240;   /*   MNEED ALSO, PLEASE */
  332. --- 39,43 -----
  333.   
  334. + #ifdef __GNUC__
  335. + extern long _stksize = -1L;    /* grab whole memory for translation */
  336. + #else
  337.   unsigned long _STACK = 10240;   /*   MNEED ALSO, PLEASE */
  338. **************
  339. *** 40,42
  340.   unsigned long _STACK = 10240;   /*   MNEED ALSO, PLEASE */
  341. ! 
  342.   #endif                    /* ATARI_ST */
  343. --- 43,45 -----
  344.   unsigned long _STACK = 10240;   /*   MNEED ALSO, PLEASE */
  345. ! #endif
  346.   #endif                    /* ATARI_ST */
  347. *** old\tmain.c
  348. --- tmain.c
  349. **************
  350. *** 9,10
  351.   
  352.   /*
  353. --- 9,14 -----
  354.   
  355. + #if ATARI_ST
  356. + #else
  357. + #define EXECX     /* define if calling iconx is supported */
  358. + #endif /* ATARI_ST */
  359.   /*
  360. **************
  361. *** 13,14
  362.   
  363.   hidden    novalue    execute    Params((char *ofile,char *efile,char * *args));
  364. --- 17,19 -----
  365.   
  366. + #ifdef EXECX
  367.   hidden    novalue    execute    Params((char *ofile,char *efile,char * *args));
  368. **************
  369. *** 14,15
  370.   hidden    novalue    execute    Params((char *ofile,char *efile,char * *args));
  371.   hidden    novalue    report Params((char *s));
  372. --- 19,21 -----
  373.   hidden    novalue    execute    Params((char *ofile,char *efile,char * *args));
  374. + #endif
  375.   hidden    novalue    report Params((char *s));
  376. **************
  377. *** 32,33
  378.   #if ATARI_ST
  379.   char *patharg;
  380. --- 38,40 -----
  381.   #if ATARI_ST
  382. + #ifdef EXECX
  383.   char *patharg;
  384. **************
  385. *** 33,34
  386.   char *patharg;
  387.   #endif                    /* ATARI_ST */
  388. --- 40,42 -----
  389.   char *patharg;
  390. + #endif
  391.   #endif                    /* ATARI_ST */
  392. **************
  393. *** 89,90
  394.      char **rfiles, **rptr;        /* list of files to remove */
  395.      char *efile = NULL;            /* stderr file */
  396. --- 97,99 -----
  397.      char **rfiles, **rptr;        /* list of files to remove */
  398. + #ifdef EXECX
  399.      char *efile = NULL;            /* stderr file */
  400. **************
  401. *** 90,91
  402.      char *efile = NULL;            /* stderr file */
  403.      char buf[MaxFileName];        /* file name construction buffer */
  404. --- 99,101 -----
  405.      char *efile = NULL;            /* stderr file */
  406. + #endif
  407.      char buf[MaxFileName];        /* file name construction buffer */
  408. **************
  409. *** 100,101
  410.   #endif                    /* MACINTOSH */
  411.   
  412. --- 110,115 -----
  413.   #endif                    /* MACINTOSH */
  414. + #ifndef ORIG
  415. +    char *targetdir;
  416. +    char *cptr;
  417. + #endif                    /* ORIG */
  418.   
  419. **************
  420. *** 109,110
  421.               break;
  422.            case 'e':            /* -e file: redirect stderr */
  423. --- 123,125 -----
  424.               break;
  425. + #ifdef EXECX
  426.            case 'e':            /* -e file: redirect stderr */
  427. **************
  428. *** 112,113
  429.               break;
  430.            case 'm':            /* -m: preprocess using m4(1) [UNIX] */
  431. --- 127,130 -----
  432.               break;
  433. + #endif
  434. + #if UNIX
  435.            case 'm':            /* -m: preprocess using m4(1) [UNIX] */
  436. **************
  437. *** 115,116
  438.               break;
  439.            case 'o':            /* -o file: name output file */
  440. --- 132,134 -----
  441.               break;
  442. + #endif
  443.            case 'o':            /* -o file: name output file */
  444. **************
  445. *** 120,121
  446.   #if ATARI_ST
  447.            case 'p':            /* -p path: iconx path [ATARI] */
  448. --- 138,140 -----
  449.   #if ATARI_ST
  450. + #ifdef EXECX
  451.            case 'p':            /* -p path: iconx path [ATARI] */
  452. **************
  453. *** 123,124
  454.               break;
  455.   #endif                    /* ATARI_ST */
  456. --- 142,144 -----
  457.               break;
  458. + #endif
  459.   #endif                    /* ATARI_ST */
  460. **************
  461. *** 135,139
  462.   
  463. - 
  464. -          case 'L':            /* -L: enable linker debugging */
  465. - 
  466.   #ifdef DeBugLinker
  467. --- 155,156 -----
  468.   
  469.   #ifdef DeBugLinker
  470. **************
  471. *** 139,140
  472.   #ifdef DeBugLinker
  473.               Dflag = 1;
  474. --- 156,158 -----
  475.   #ifdef DeBugLinker
  476. +          case 'L':            /* -L: enable linker debugging */
  477.               Dflag = 1;
  478. **************
  479. *** 140,141
  480.               Dflag = 1;
  481.   #endif                    /* DeBugLinker */
  482. --- 158,160 -----
  483.               Dflag = 1;
  484. +             break;
  485.   #endif                    /* DeBugLinker */
  486. **************
  487. *** 142,145
  488.   
  489. -             break;
  490. - 
  491.            case 'S':            /* -Sxnnnn: set a size */
  492. --- 161,162 -----
  493.   
  494.            case 'S':            /* -Sxnnnn: set a size */
  495. **************
  496. *** 147,149
  497.               break;
  498. !          default:
  499.            case 'x':            /* -x illegal until after file list */
  500. --- 164,166 -----
  501.               break;
  502. ! #ifdef EXECX
  503.            case 'x':            /* -x illegal until after file list */
  504. **************
  505. *** 149,150
  506.            case 'x':            /* -x illegal until after file list */
  507.               usage();
  508. --- 166,169 -----
  509.            case 'x':            /* -x illegal until after file list */
  510. + #endif
  511. +          default:
  512.               usage();
  513. **************
  514. *** 152,153
  515.   
  516.      /*
  517. --- 171,199 -----
  518.   
  519. + #ifndef ORIG
  520. + /* establish in which directory create intermediate files */
  521. +    if (nolink || (NULL == (targetdir = getenv("TEMP")))) {
  522. +       targetdir = TargetDir;
  523. +    } else {
  524. +       strcpy(buf, targetdir);
  525. + #if PORT
  526. + Deliberate syntax error
  527. + #endif                    /* PORT */
  528. +    /* Append path separator */
  529. + #if ATARI_ST
  530. +       cptr = buf + strlen(buf) - 1;
  531. + #ifdef __GNUC__
  532. +       if ('\\' != *cptr && '/' != *cptr)
  533. + #else
  534. +       if ('\\' != *cptr)
  535. + #endif
  536. +       {
  537. +          cptr += 1;
  538. +      *cptr++ = '\\';
  539. +      *cptr = '\0';
  540. +      targetdir = salloc (buf);
  541. +       }
  542. + #endif                    /* ATARI_ST */
  543. +    }
  544. + #endif                    /* ORIG */
  545. + 
  546.      /*
  547. **************
  548. *** 164,165
  549.      while (optind < argc)  {
  550.         if (strcmp(argv[optind],"-x") == 0)    /* stop at -x */
  551. --- 210,212 -----
  552.      while (optind < argc)  {
  553. + #ifdef EXECX
  554.         if (strcmp(argv[optind],"-x") == 0)    /* stop at -x */
  555. **************
  556. *** 166,168
  557.            break;
  558. !       else if (strcmp(argv[optind],"-") == 0) {
  559.            *tptr++ = "-";                /* "-" means standard input */
  560. --- 213,217 -----
  561.            break;
  562. !       else
  563. ! #endif
  564. !       if (strcmp(argv[optind],"-") == 0) {
  565.            *tptr++ = "-";                /* "-" means standard input */
  566. **************
  567. *** 168,169
  568.            *tptr++ = "-";                /* "-" means standard input */
  569.            *lptr++ = *rptr++ = "stdin.u1";
  570. --- 217,219 -----
  571.            *tptr++ = "-";                /* "-" means standard input */
  572. + #ifdef ORIG
  573.            *lptr++ = *rptr++ = "stdin.u1";
  574. **************
  575. *** 170,171
  576.            *rptr++ = "stdin.u2";
  577.            }
  578. --- 220,228 -----
  579.            *rptr++ = "stdin.u2";
  580. + #else
  581. +      strcpy(buf, targetdir);
  582. +      strcat(buf, "stdin.u1");
  583. +          *lptr++ = *rptr++ = salloc(buf);
  584. +      buf[strlen(buf) - 1] = '2';  /* "...stdin.u2" */
  585. +          *rptr++ = salloc(buf);
  586. + #endif                    /* ORIG */
  587.            }
  588. **************
  589. *** 176,177
  590.               *tptr++ = salloc(buf);        /* translate the .icn file */
  591.               makename(buf,TargetDir,argv[optind],U1Suffix);
  592. --- 233,235 -----
  593.               *tptr++ = salloc(buf);        /* translate the .icn file */
  594. + #ifdef ORIG
  595.               makename(buf,TargetDir,argv[optind],U1Suffix);
  596. **************
  597. *** 179,180
  598.               makename(buf,TargetDir,argv[optind],U2Suffix);
  599.               *rptr++ = salloc(buf);        /* also remove .u2 */
  600. --- 237,243 -----
  601.               makename(buf,TargetDir,argv[optind],U2Suffix);
  602. + #else
  603. +             makename(buf,targetdir,argv[optind],U1Suffix);
  604. +             *lptr++ = *rptr++ = salloc(buf);    /* link & remove .u1 */
  605. +             makename(buf,targetdir,argv[optind],U2Suffix);
  606. + #endif                    /* ORIG */
  607.               *rptr++ = salloc(buf);        /* also remove .u2 */
  608. **************
  609. *** 183,184
  610.                  || smatch(fp->ext,USuffix)) {
  611.               makename(buf,TargetDir,argv[optind],U1Suffix);
  612. --- 246,248 -----
  613.                  || smatch(fp->ext,USuffix)) {
  614. + #ifdef ORIG
  615.               makename(buf,TargetDir,argv[optind],U1Suffix);
  616. **************
  617. *** 184,185
  618.               makename(buf,TargetDir,argv[optind],U1Suffix);
  619.               *lptr++ = salloc(buf);
  620. --- 248,254 -----
  621.               makename(buf,TargetDir,argv[optind],U1Suffix);
  622. + #else
  623. +         /* we do not want to change locations of files to link */
  624. +             makename(buf,SourceDir,argv[optind],U1Suffix);
  625. + #endif                    /* ORIG */
  626. + 
  627.               *lptr++ = salloc(buf);
  628. **************
  629. *** 211,212
  630.            report("Translating");
  631.         errors = trans(tfiles);
  632. --- 280,282 -----
  633.            report("Translating");
  634. + #ifdef ORIG
  635.         errors = trans(tfiles);
  636. **************
  637. *** 212,213
  638.         errors = trans(tfiles);
  639.         if (errors > 0)            /* exit if errors seen */
  640. --- 282,286 -----
  641.         errors = trans(tfiles);
  642. + #else
  643. +       errors = trans(tfiles, rfiles);
  644. + #endif                    /* ORIG */
  645.         if (errors > 0)            /* exit if errors seen */
  646. **************
  647. *** 275,276
  648.   
  649.      if (optind < argc)  {
  650. --- 348,350 -----
  651.   
  652. + #ifdef EXECX
  653.      if (optind < argc)  {
  654. **************
  655. *** 280,281
  656.         }
  657.   
  658. --- 354,356 -----
  659.         }
  660. + #endif
  661.   
  662. **************
  663. *** 284,285
  664.   
  665.   /*
  666. --- 359,361 -----
  667.   
  668. + #ifdef EXECX
  669.   /*
  670. **************
  671. *** 443,444
  672.      }
  673.   
  674. --- 519,521 -----
  675.      }
  676. + #endif  /* EXECX */
  677.   
  678. **************
  679. *** 524,525
  680.      {
  681.      fprintf(stderr,"usage: %s %s file ... [-x args]\n", progname, Usage);
  682. --- 601,603 -----
  683.      {
  684. + #ifdef EXECX
  685.      fprintf(stderr,"usage: %s %s file ... [-x args]\n", progname, Usage);
  686. **************
  687. *** 525,526
  688.      fprintf(stderr,"usage: %s %s file ... [-x args]\n", progname, Usage);
  689.      exit(ErrorExit);
  690. --- 603,615 -----
  691.      fprintf(stderr,"usage: %s %s file ... [-x args]\n", progname, Usage);
  692. + #else
  693. + #if ATARI_ST
  694. + #undef Usage
  695. + #ifdef DeBugLinker
  696. + #define Usage "[-cstuL] [-o ofile] [-Sxnnnn]"
  697. + #else        /* DeBugLinker */
  698. + #define Usage "[-cstu] [-o ofile] [-Sxnnnn]"
  699. + #endif        /* DeBugLinker */
  700. + #endif        /* ATARI_ST */
  701. +    fprintf(stderr,"usage: %s %s file ... \n", progname, Usage);
  702. + #endif
  703.      exit(ErrorExit);
  704. *** old\tproto.h
  705. --- tproto.h
  706. **************
  707. *** 8,10
  708.   int    blocate            Params((char *s));
  709. ! struct    node *c_str_leaf Params((int type,struct node *loc_model,char *c));
  710.   novalue    codegen            Params((struct node *t));
  711. --- 8,12 -----
  712.   int    blocate            Params((char *s));
  713. ! struct    node *c_str_leaf    Params((int type,
  714. !                     struct node *loc_model,
  715. !                     char *c));
  716.   novalue    codegen            Params((struct node *t));
  717. **************
  718. *** 29,31
  719.   novalue    gout            Params((FILE *fd));
  720. ! struct    node *i_str_leaf Params((int type,struct node *loc_model,char *c,int d));
  721.   int    ilink            Params((char * *ifiles,char *outname));
  722. --- 31,36 -----
  723.   novalue    gout            Params((FILE *fd));
  724. ! struct    node *i_str_leaf    Params((int type,
  725. !                     struct node *loc_model,
  726. !                     char *c,
  727. !                     int d));
  728.   int    ilink            Params((char * *ifiles,char *outname));
  729. **************
  730. *** 48,50
  731.   novalue    putfield        Params((char *fname,int rnum,int fnum));
  732. ! struct    gentry *putglobal    Params((char *id,int flags,int nargs,int procid));
  733.   char    *putid            Params((int len));
  734. --- 53,58 -----
  735.   novalue    putfield        Params((char *fname,int rnum,int fnum));
  736. ! struct    gentry *putglobal    Params((char *id,
  737. !                     int flags,
  738. !                     int nargs,
  739. !                     int procid));
  740.   char    *putid            Params((int len));
  741. **************
  742. *** 67,68
  743.   novalue    tminit            Params((noargs));
  744.   int    trans            Params((char * *ifiles));
  745. --- 75,77 -----
  746.   novalue    tminit            Params((noargs));
  747. + #ifdef ORIG
  748.   int    trans            Params((char * *ifiles));
  749. **************
  750. *** 68,69
  751.   int    trans            Params((char * *ifiles));
  752.   struct    node *tree1        Params((int type));
  753. --- 77,81 -----
  754.   int    trans            Params((char * *ifiles));
  755. + #else
  756. + int    trans            Params((char **ifiles, char **ufiles));
  757. + #endif                    /* ORIG */
  758.   struct    node *tree1        Params((int type));
  759. **************
  760. *** 70,75
  761.   struct    node *tree2        Params((int type,struct node *loc_model));
  762. ! struct    node *tree3        Params((int type,struct node *loc_model,struct node *c));
  763. ! struct    node *tree4        Params((int type,struct node *loc_model,struct node *c,struct node *d));
  764. ! struct    node *tree5 Params((int type,struct node *loc_model,struct node *c,struct node *d, struct node *e));
  765. ! struct    node *tree6        Params((int type,struct node *loc_model,struct node *c, struct node *e, struct node *d, struct node *e, struct node *f));
  766.   novalue    treeinit        Params((noargs));
  767. --- 82,101 -----
  768.   struct    node *tree2        Params((int type,struct node *loc_model));
  769. ! struct    node *tree3        Params((int type,
  770. !                     struct node *loc_model,
  771. !                     struct node *c));
  772. ! struct    node *tree4        Params((int type,
  773. !                     struct node *loc_model,
  774. !                     struct node *c,
  775. !                     struct node *d));
  776. ! struct    node *tree5        Params((int type,
  777. !                     struct node *loc_model,
  778. !                     struct node *c,
  779. !                     struct node *d,
  780. !                     struct node *e));
  781. ! struct    node *tree6        Params((int type,
  782. !                     struct node *loc_model,
  783. !                     struct node *c,
  784. !                     struct node *d,
  785. !                     struct node *e,
  786. !                     struct node *f));
  787.   novalue    treeinit        Params((noargs));
  788. *** old\trans.c
  789. --- trans.c
  790. **************
  791. *** 18,19
  792.   
  793.   hidden    FILE    *preprocess    Params((char *filename));
  794. --- 18,20 -----
  795.   
  796. + #if UNIX
  797.   hidden    FILE    *preprocess    Params((char *filename));
  798. **************
  799. *** 19,20
  800.   hidden    FILE    *preprocess    Params((char *filename));
  801.   hidden    novalue    trans1        Params((char *filename));
  802. --- 20,23 -----
  803.   hidden    FILE    *preprocess    Params((char *filename));
  804. + #endif
  805. + #ifdef ORIG
  806.   hidden    novalue    trans1        Params((char *filename));
  807. **************
  808. *** 20,21
  809.   hidden    novalue    trans1        Params((char *filename));
  810.   
  811. --- 23,29 -----
  812.   hidden    novalue    trans1        Params((char *filename));
  813. + #else
  814. + hidden    novalue    trans1        Params((char *filename,
  815. +                     char *u1name,
  816. +                     char *u2name));
  817. + #endif                    /* ORIG */
  818.   
  819. **************
  820. *** 33,34
  821.   
  822.   /*
  823. --- 41,43 -----
  824.   
  825. + #ifdef ORIG
  826.   /*
  827. **************
  828. *** 38,39
  829.   char **ifiles;
  830.      {
  831. --- 47,58 -----
  832.   char **ifiles;
  833. + #else
  834. + /*
  835. +  * translate a number of files, returning an error count;
  836. +  * ufiles is a list of names of intermediate files corresponding
  837. +  * to source files on ifiles list
  838. +  */
  839. + int trans(ifiles, ufiles)
  840. + char **ifiles;
  841. + char **ufiles;
  842. + #endif                    /* ORIG */
  843.      {
  844. **************
  845. *** 47,48
  846.      while (*ifiles)
  847.         trans1(*ifiles++);    /* translate each file in turn */
  848. --- 66,68 -----
  849.      while (*ifiles)
  850. + #ifdef ORIG
  851.         trans1(*ifiles++);    /* translate each file in turn */
  852. **************
  853. *** 48,49
  854.         trans1(*ifiles++);    /* translate each file in turn */
  855.      tmfree();            /* free memory used for translation */
  856. --- 68,76 -----
  857.         trans1(*ifiles++);    /* translate each file in turn */
  858. + #else
  859. +    {
  860. +       char *u1name = *ufiles++;
  861. +       trans1(*ifiles++, u1name, *ufiles++);
  862. +                 /* translate each file in turn */
  863. +    }
  864. + #endif                    /* ORIG */
  865.      tmfree();            /* free memory used for translation */
  866. **************
  867. *** 63,64
  868.   
  869.   /*
  870. --- 90,92 -----
  871.   
  872. + #ifdef ORIG
  873.   /*
  874. **************
  875. *** 68,69
  876.   char *filename;
  877.   {
  878. --- 96,106 -----
  879.   char *filename;
  880. + #else
  881. + /*
  882. +  * translate one file creating intermediate code in u1name and u2name
  883. +  */
  884. + static novalue trans1(filename, u1name, u2name)
  885. + char *filename;
  886. + char *u1name;
  887. + char *u2name;
  888. + #endif                    /* ORIG */
  889.   {
  890. **************
  891. *** 69,70
  892.   {
  893.      char oname[MaxFileName];    /* buffer for constructing file names */
  894. --- 106,108 -----
  895.   {
  896. + #ifdef ORIG
  897.      char oname[MaxFileName];    /* buffer for constructing file names */
  898. **************
  899. *** 70,71
  900.      char oname[MaxFileName];    /* buffer for constructing file names */
  901.   
  902. --- 108,110 -----
  903.      char oname[MaxFileName];    /* buffer for constructing file names */
  904. + #endif                    /* ORIG */
  905.   
  906. **************
  907. *** 78,79
  908.   
  909.      if (m4pre)
  910. --- 117,119 -----
  911.   
  912. + #if UNIX
  913.      if (m4pre)
  914. **************
  915. *** 80,82
  916.         srcfile = preprocess(filename);
  917. !    else if (strcmp(filename,"-") == 0) {
  918.         srcfile = stdin;
  919. --- 120,124 -----
  920.         srcfile = preprocess(filename);
  921. !    else
  922. ! #endif
  923. !    if (strcmp(filename,"-") == 0) {
  924.         srcfile = stdin;
  925. **************
  926. *** 97,98
  927.   
  928.      makename(oname, TargetDir, filename, U1Suffix);
  929. --- 139,141 -----
  930.   
  931. + #ifdef ORIG
  932.      makename(oname, TargetDir, filename, U1Suffix);
  933. **************
  934. *** 98,99
  935.      makename(oname, TargetDir, filename, U1Suffix);
  936.   
  937. --- 141,143 -----
  938.      makename(oname, TargetDir, filename, U1Suffix);
  939. + #endif                    /* ORIG */
  940.   
  941. **************
  942. *** 106,107
  943.    */
  944.      codefile = fopen(oname, WriteBinary);   /* avoid line splits */
  945. --- 150,152 -----
  946.    */
  947. + #ifdef ORIG
  948.      codefile = fopen(oname, WriteBinary);   /* avoid line splits */
  949. **************
  950. *** 107,108
  951.      codefile = fopen(oname, WriteBinary);   /* avoid line splits */
  952.   #else                    /* MVS || VM */
  953. --- 152,156 -----
  954.      codefile = fopen(oname, WriteBinary);   /* avoid line splits */
  955. + #else
  956. +    codefile = fopen(u1name, WriteBinary);   /* avoid line splits */
  957. + #endif                    /* ORIG */
  958.   #else                    /* MVS || VM */
  959. **************
  960. *** 108,109
  961.   #else                    /* MVS || VM */
  962.      codefile = fopen(oname, WriteText);
  963. --- 156,158 -----
  964.   #else                    /* MVS || VM */
  965. + #ifdef ORIG
  966.      codefile = fopen(oname, WriteText);
  967. **************
  968. *** 109,110
  969.      codefile = fopen(oname, WriteText);
  970.   #endif                    /* MVS || VM */
  971. --- 158,162 -----
  972.      codefile = fopen(oname, WriteText);
  973. + #else
  974. +    codefile = fopen(u1name, WriteText);
  975. + #endif                    /* ORIG */
  976.   #endif                    /* MVS || VM */
  977. **************
  978. *** 112,113
  979.      if (codefile == NULL)
  980.         quitf("cannot create %s", oname);
  981. --- 164,168 -----
  982.      if (codefile == NULL)
  983. + #ifndef ORIG
  984. +       quitf("cannot create %s", u1name);
  985. + #else
  986.         quitf("cannot create %s", oname);
  987. **************
  988. *** 115,116
  989.      makename(oname, TargetDir, filename, U2Suffix);
  990.   
  991. --- 170,172 -----
  992.      makename(oname, TargetDir, filename, U2Suffix);
  993. + #endif                    /* ORIG */
  994.   
  995. **************
  996. *** 117,118
  997.   #if MVS || VM
  998.      globfile = fopen(oname, WriteBinary);
  999. --- 173,175 -----
  1000.   #if MVS || VM
  1001. + #ifdef ORIG
  1002.      globfile = fopen(oname, WriteBinary);
  1003. **************
  1004. *** 118,119
  1005.      globfile = fopen(oname, WriteBinary);
  1006.   #else                    /* MVS || VM */
  1007. --- 175,179 -----
  1008.      globfile = fopen(oname, WriteBinary);
  1009. + #else
  1010. +    globfile = fopen(u2name, WriteBinary);
  1011. + #endif                    /* ORIG */
  1012.   #else                    /* MVS || VM */
  1013. **************
  1014. *** 119,120
  1015.   #else                    /* MVS || VM */
  1016.      globfile = fopen(oname, WriteText);
  1017. --- 179,181 -----
  1018.   #else                    /* MVS || VM */
  1019. + #ifdef ORIG
  1020.      globfile = fopen(oname, WriteText);
  1021. **************
  1022. *** 120,121
  1023.      globfile = fopen(oname, WriteText);
  1024.   #endif                    /* MVS || VM */
  1025. --- 181,185 -----
  1026.      globfile = fopen(oname, WriteText);
  1027. + #else
  1028. +    globfile = fopen(u2name, WriteText);
  1029. + #endif                    /* ORIG */
  1030.   #endif                    /* MVS || VM */
  1031. **************
  1032. *** 123,124
  1033.      if (globfile == NULL)
  1034.         quitf("cannot create %s", oname);
  1035. --- 187,189 -----
  1036.      if (globfile == NULL)
  1037. + #ifdef ORIG
  1038.         quitf("cannot create %s", oname);
  1039. **************
  1040. *** 124,125
  1041.         quitf("cannot create %s", oname);
  1042.      writecheck(fprintf(globfile,"version\t%s\n",UVersion));
  1043. --- 189,193 -----
  1044.         quitf("cannot create %s", oname);
  1045. + #else
  1046. +       quitf("cannot create %s", u2name);
  1047. + #endif                    /* ORIG */
  1048.      writecheck(fprintf(globfile,"version\t%s\n",UVersion));
  1049. **************
  1050. *** 161,162
  1051.   
  1052.   /*
  1053. --- 229,231 -----
  1054.   
  1055. + #if UNIX
  1056.   /*
  1057. **************
  1058. *** 186
  1059.   }
  1060. --- 255,256 -----
  1061.   }
  1062. + #endif                    /* UNIX */
  1063. *** old\util.c
  1064. --- util.c
  1065. **************
  1066. *** 264,266
  1067.   #define MinSize(x,y,z)
  1068. ! #include "sizes.h"            \* initialize from "sizes.h" data *\
  1069.   #undef Size
  1070. --- 264,266 -----
  1071.   #define MinSize(x,y,z)
  1072. ! #include "sizes.h"            /* initialize from "sizes.h" data */
  1073.   #undef Size
  1074.